' BASIC Anywhere Machine program by Charlie Veniot
' mod of RedMarv2.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 18.23
1 RANDOMIZE TIMER 
2 SCREEN _newimage(640,480,13) 
3 c = INT(RND * 63) + 1 
4 IF POINT(0) < 0 OR POINT(0) > 639 OR POINT(1) < 0 OR POINT(1) > 479 THEN CLS 
5 IF POINT(0) < 0 OR POINT(0) > 639 OR POINT(1) < 0 OR POINT(1) > 479 THEN PSET (320, 240), c 
6 DRAW "c34ta" + STR$(INT(RND * 359)) + "u" + STR$(INT(RND * 50) + 5) 
7 CIRCLE (POINT(0), POINT(1)), RND * 10, c 
8 FOR b = 0 TO 1000: NEXT 
_delay 0.025
9 IF INKEY$ = "" THEN GOTO 3